home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 140 / Gekkan Dennou Club - 2000.1 Vol. 140 (Japan).7z / Gekkan Dennou Club - 2000.1 Vol. 140 (Japan) (Track 1).bin / tools / dshell / dsh333bs.lzh / crcsub.s < prev    next >
Text File  |  1999-07-11  |  4KB  |  129 lines
  1. *
  2. *    ＣＲＣ演算関数(サブルーチン)
  3. *
  4. *    unsigned short calc_crc(unsigned short crc, char *buf, int len)
  5. *        crc ... 累積ＣＲＣ値(一発目の時は0ね)
  6. *        buf ... ＣＲＣを計算すべきデータのバッファのポインタ
  7. *        len ... bufの有効長さ(byte)
  8. *    戻り値 = 新しいＣＲＣ値
  9. *
  10.  
  11.         .xdef    _calc_crc
  12.  
  13.         .offset    4
  14. crc:        ds.l    1
  15. buf:        ds.l    1
  16. len:        ds.l    1
  17.         .text
  18. *
  19. _calc_crc:
  20.         move.l    d3,a2    *{
  21.  
  22.         moveq.l    #0,d0
  23.         move.w    crc+2(sp),d0
  24.         movea.l    buf(sp),a0
  25.         move.l    len(sp),d3
  26.         lea.l    table(pc),a1
  27.         bra    crcNext
  28. crcLoopH:    swap.w    d3
  29. crcLoopL:    moveq.l    #0,d1
  30.         move.b    d0,d1
  31.         lsr.w    #8,d0
  32.         move.b    (a0)+,d2
  33.         eor.b    d2,d1
  34.         add.w    d1,d1
  35.         move.w    (a1,d1.w),d2
  36.         eor.w    d2,d0
  37. crcNext:    dbra    d3,crcLoopL
  38.         swap.w    d3
  39.         dbra    d3,crcLoopH
  40.  
  41.         move.l    a2,d3    *}
  42.         rts
  43. *
  44. table:            *ITU-T 式の生成多項式/ビット送り順(LSB→MSB)
  45. .dc.w    $0000,$1189,$2312,$329b,$4624,$57ad,$6536,$74bf
  46. .dc.w    $8c48,$9dc1,$af5a,$bed3,$ca6c,$dbe5,$e97e,$f8f7
  47. .dc.w    $1081,$0108,$3393,$221a,$56a5,$472c,$75b7,$643e
  48. .dc.w    $9cc9,$8d40,$bfdb,$ae52,$daed,$cb64,$f9ff,$e876
  49. .dc.w    $2102,$308b,$0210,$1399,$6726,$76af,$4434,$55bd
  50. .dc.w    $ad4a,$bcc3,$8e58,$9fd1,$eb6e,$fae7,$c87c,$d9f5
  51. .dc.w    $3183,$200a,$1291,$0318,$77a7,$662e,$54b5,$453c
  52. .dc.w    $bdcb,$ac42,$9ed9,$8f50,$fbef,$ea66,$d8fd,$c974
  53. .dc.w    $4204,$538d,$6116,$709f,$0420,$15a9,$2732,$36bb
  54. .dc.w    $ce4c,$dfc5,$ed5e,$fcd7,$8868,$99e1,$ab7a,$baf3
  55. .dc.w    $5285,$430c,$7197,$601e,$14a1,$0528,$37b3,$263a
  56. .dc.w    $decd,$cf44,$fddf,$ec56,$98e9,$8960,$bbfb,$aa72
  57. .dc.w    $6306,$728f,$4014,$519d,$2522,$34ab,$0630,$17b9
  58. .dc.w    $ef4e,$fec7,$cc5c,$ddd5,$a96a,$b8e3,$8a78,$9bf1
  59. .dc.w    $7387,$620e,$5095,$411c,$35a3,$242a,$16b1,$0738
  60. .dc.w    $ffcf,$ee46,$dcdd,$cd54,$b9eb,$a862,$9af9,$8b70
  61. .dc.w    $8408,$9581,$a71a,$b693,$c22c,$d3a5,$e13e,$f0b7
  62. .dc.w    $0840,$19c9,$2b52,$3adb,$4e64,$5fed,$6d76,$7cff
  63. .dc.w    $9489,$8500,$b79b,$a612,$d2ad,$c324,$f1bf,$e036
  64. .dc.w    $18c1,$0948,$3bd3,$2a5a,$5ee5,$4f6c,$7df7,$6c7e
  65. .dc.w    $a50a,$b483,$8618,$9791,$e32e,$f2a7,$c03c,$d1b5
  66. .dc.w    $2942,$38cb,$0a50,$1bd9,$6f66,$7eef,$4c74,$5dfd
  67. .dc.w    $b58b,$a402,$9699,$8710,$f3af,$e226,$d0bd,$c134
  68. .dc.w    $39c3,$284a,$1ad1,$0b58,$7fe7,$6e6e,$5cf5,$4d7c
  69. .dc.w    $c60c,$d785,$e51e,$f497,$8028,$91a1,$a33a,$b2b3
  70. .dc.w    $4a44,$5bcd,$6956,$78df,$0c60,$1de9,$2f72,$3efb
  71. .dc.w    $d68d,$c704,$f59f,$e416,$90a9,$8120,$b3bb,$a232
  72. .dc.w    $5ac5,$4b4c,$79d7,$685e,$1ce1,$0d68,$3ff3,$2e7a
  73. .dc.w    $e70e,$f687,$c41c,$d595,$a12a,$b0a3,$8238,$93b1
  74. .dc.w    $6b46,$7acf,$4854,$59dd,$2d62,$3ceb,$0e70,$1ff9
  75. .dc.w    $f78f,$e606,$d49d,$c514,$b1ab,$a022,$92b9,$8330
  76. .dc.w    $7bc7,$6a4e,$58d5,$495c,$3de3,$2c6a,$1ef1,$0f78
  77.  
  78.         .end
  79.  
  80. *
  81. *    ＣＲＣ演算関数(サブルーチン)
  82. *    from FDIMG.s
  83. *
  84. *    int calc_crc(unsigned short crc, char *buf, int len)
  85. *        crc ... 累積ＣＲＣ値(一発目の時は0ね)
  86. *        buf ... ＣＲＣを計算すべきデータのバッファのポインタ
  87. *        len ... bufの有効長さ(byte)
  88. *    戻り値 = 新しいＣＲＣ値
  89. *
  90. *    ＣＲＣの有効値は short であるので注意。
  91. *
  92.  
  93. CRCVAL    equ    %0001_0000_0010_0001
  94.  
  95. Regs    reg    d3-d4        * movem.lでsaveするregister
  96.  
  97. savsiz    equ    2*4        * 2=movem.lでsaveしているregisterの数 / 4=register長
  98.     .offset    4+savsiz
  99. crc    ds.l    1
  100. buf    ds.l    1
  101. len    ds.l    1
  102.     .text
  103.  
  104.     .globl    _calc_crc
  105.  
  106. _calc_crc:
  107.     movem.l    Regs,-(sp)
  108.     move.w    #CRCVAL,d4
  109.     moveq    #0,d0
  110.     move.l    crc(sp),d0    * crc(有効値wordなので注意)
  111.     movea.l    buf(sp),a0    * *buf
  112.     move.l    len(sp),d1    * len
  113.     subq.l    #1,d1
  114.     blt    ext1
  115. loop1:    moveq    #7,d2
  116.     move.b    (a0)+,d3
  117. loop2:    add.b    d3,d3        * bit7 -> cry-flg
  118.     addx.w    d0,d0
  119.     bcc    skip1
  120.     eor.w    d4,d0
  121. skip1:    dbra    d2,loop2
  122.     subq.l    #1,d1
  123.     bge    loop1
  124. ext1:
  125.     movem.l    (sp)+,Regs
  126.     rts
  127.  
  128.     end
  129.